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HrWT-GBAPJLIC DJRECTORATS 
NAVAL HEADQUAkTfcRS 

Karacwi 



D.O.No. HD/0105B21, 13 October, 1970, 



Fromt- Captaln S.R. Islao, P.N. 
Director of Hydrography. 



Dear Slr ? 

Raference ycur letter dated 94-6-1970 and Muftl 
Rashld Ahmad's letter datad 7- 10- 1970. 

The Nautical Almanac is a standard publlcatlon 
of the Royal Mavy and its contents are extensively used 
for the computatlon of the rising and settin^ phenomena 
of th^ heavenly bodies and other astronoclcal infonnatlon 
malnly connected wlth navigatlon. Tho accuracy of tables 
in tho nautical almanac meets these r & q;;lrements and ls 
considered sufficieut to cover the problems indlcated by you 
From the nautical alir.anac of 1970 the times of sunrise and 
twllirht have been calculr.ted to corcpare your computatlona. 
The results are as unders- 



Place Date Stated tlme of Calculated time 

Goth Pakir belcy horUon . ' 

(Lat.25' 46'N 11.6.70 04 hrs . 19 mln. 04 hrs. 20 min. 
Long.68 40 E) (Zone + 5 hours) (Zdne * 5 hours) 

Karap.hl 

(Lat.24* 52.5,'N 33.6.70 04 hrs . 30 min. 04 hrs . 29fc mln, 
Long.67° 2.5 E) 20.9.70 05 hrs . 17 min. 05 hrs. 18 mln, 

• 33*12.70 06 tm* X3 min. 06 hrs . 02 mln t 

2. The calculated time as gl*en above is based upon 

the following data glven in the Nautical Almanae (Page 258) 
and Admlralty Manual of Navlgation Vol* II (Page 137) i- 

KCTRACT from Nautlcal. Almansc 1970 fPaee P58) 

Basis of the tabulatlons . At sunrise and sunset 
16' is allowed for semi-dlameter and 34' for horlzontal 
refractlon. so that the tlmes glven the Sun«s upper limbis 
on the vislble horiron; all tlmes refer to phenomena as seen 
from sea lertl yith a clear horlzon. 



At the times glven for the beglnnlng and end of 
twiligbt, the Sun ! s zenith distance ls 96° for clvll. and 
10J? for nautical twillgbt, The degree of llluminatlon 
at the times given for clvll tvilight (in good condltlons 
and In the absence of other illumination) is such that th 
brightest stars are visible and the horison ls clearly 
deflned. At the times glven for nautical twllight the 
horizon is ln general not vi3lble, and it la too dark for 
observation. 

Tlmes corresponding to.other depresslons of the 
Sun may be obtalned by Interpolatlon or, for deprestions 
of raore than l^ less rellabiy, by eztrapolatlon; tlmes 
so obtained will be subject to considerable uncertalnty 
rear extreme conditions. 

KXTRACT Prom Admlralty Manual of Nayjgatlon Vol.II , 

Astronomlcal twlllght, Thls is said to ervl or 
begln when the Sun*s centre Is 16° below the horlzon, at 
whlch moment absolute darkness is assumed to begln or end 
:o far as the Sun ls concerned. 

3. The tlmes o f d>^>C? or i^-r^ a nd 
other requlrementa can be obtalned from the above stated 
arguments acconling to the deflnltlons of the teras. 

4. A comparlson of the times glven by you for 22nd 
September and 22nd Dec*mber. 1970 indicatea that they 
relate to Astronooical twilight (morning) when the sun is 
lS°"below the horlzon. For 22nd June 1970 the tlme given 
is a llttle earller. 

5. The chart of time supplled by you has also b«wn 
compared and the tlmes glven for "o*^tf. as *ell as 
sunrlse generally tally wlth other tlmes calculated from 
the Nautlcal Almanac for Astronomlcal twilight anl sunrlse 
respectlvely. 

Yours Sincerely 




(S.R, ISLAM) 

CAPTAIH PAKISTAN NA7Y 
Wolana Bhtlshamul Haq Thanvl, 
56, Jacob Llnes t 

Copy tot- Hufti Rashid Ahmad 

Daruiiftac wal Ir«* aC 
Nazlraabad, 

Karachl. 



OJ^>£? 



PJLHSTAM MKTEOROLOGTCAL DEPAHTMENT 
Offlce of the Deputy Dlrector, Cllmatology^Hydrometeorology 

Oceanography, Unlverslty Road, Karacbl. 



Karachl, 
No. C 1-11(7) /68 dated the lBth September, 1970, 

To 

Maulana Ehtlsbamul Haq Thanvi, 

56, Jacob Llnes, 

Karachl . 

Dear Slr, 

Klndly refer to your letter dated the 21st June, 1070. 
Replies to the cjueries at the end of page 4 ©f the report 
reeelved alongwith your letter, are glven belov serlatrlmt 

1. We have ao comments to offer. 

2. The tlme for the beglnlng of morlng astronomlcal tvl- 

llght for 12th June Is 4h ll m . The boglnlng of mornlng 
estronomlcal twllight is taken to be the tlme when the 
Sun Is 18° below horlzon. We ha\re no comments to offer 
on the tlmings in the dlfferent charts glven f the tinu 
lngs of Sub-he-Sadlq for Karachl. 

3. When the Sun Is 16° below horlzon, all llght from the 
sun 13 cut off, 

4. Thls Department has not undertaken any work on the 
determlnation of the timlngs of Sub-he-Sadlq accordlng 
to the definltion gWen in the •note 1 at the end of 
page 4 of the Report enclo9ed wlth your letter. These 
Limlngs can, ho*evar, be calculated for any lpcatlon 

lf the phenomena Sub-he-Sadlq ts preclsely deflned wlth 
respect to the posltlon of the Sun below boriaon. Wlth 
out thls the calculatlon of the tlmlngs wlll not be 
posslble and as you have yourself notlced, wlll be sub- 
ject to the personal error of the observer. 

Delay ln the reoly to your letter is deeply regretted. 

Yours falthfully. 

s r 

( T.H. SIDDKjn ) 18/9/70 
for DIRECTOR ' 












»o.Cl-11(17)/68/l667 
PAIISTAN MITCOEOLOGICAL DEPAIT*£KT 

orrics or us deputy dibector 

CLUATOLOGY HYDlOMinOiOLOGY & 
OCEANOGHAPHY 



rroas- N, A. ^uraahl, 

D«puty Dlroctor* 

To :- HuStl laahld kbm*d, 

Barul lftae wal Irshad 
N»xlaabad IV 
Iarachi-l8 # 



Karaahi, tha 21»t Octobar, 1970 

Daar Slr, 

l«foroace your latter datad 2*10.1970. 

2. Tho replloo to your quorios aro *■ follovo seriatua:- 

(1) Tho iun lo approsiaately 18 degrees below tho horiion 

at the tlaoa glven on the dates iptcUUd. 



id d>K*£? 



'l.." 



^jU»"^ 



\<r 



flu*Vtf 



(2) When the aun. ie 18 dagrees below the horiaon all light 
from the aun ie cut off. 

(3) The times»correct to the nearcst helf min., calculated 
for mwteorologicnl 0b§ervatory at Karachi Airport (coor- 
dinates 2*°5^ N I 67^08'E) when the sun is 15° below 

the horlzon on the dates apecified are as follows: 

22.6.1970 : (rt hre 29^ min.W .P .S.T. 
22.9.1970 : 05 hrs 1? M " " " 

22.12.1970: 06 hrs Ms H " ,f " 



Kindly acknowledge receipt. 



Yours faithfully, 




( N. a. QURESH 
Deputy Director 
Phone : 4155**9 
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Pcayer Scheiule coapJtation 

c p»0G3*a to ccnpjts tslamc PBAT tB schecjl^s AND uiola charts 

c 

ccccccccccccccccccccccccccccccccc 

c 

C HStlTSM 8T 

c 

C S. Khr.kl AOCALl 

C flATHE*ATICAL SCIEWCES DEFARTRIWT < 

C arNSSFLAER PCLYTECHHIC instiiuie 

C TROY, *EV YORK 12181, USA 
C 

ccccccrccccccccccccccccccccrcccccc 
c 

C r*PUT LATA SHOULC Hf PROYrOED ON LCGICAL UMT S. 

c th* pRor.Rin sicps upon encouhtehiig tm end-qp-pile c« umit 5. 

C POR EACII SCHEOaLT DESI n ED, THE IRPOT SHOULO INCLUDE THEEE CABDS 

C UTTH TH r . "OLLOUIN^ DATA LATCUT: 

c 

C CARD 1: 

C COL. 1 - 29: Hl"S OP PlACt. II 15 PEPPOtUCED ON THE SC1IEOULE. 

c 

C CAPD 2: 

C COL. 1 - U; DEGHGES 11 LATITUCE CF PLACf. 

C COL. 5 - <*: HIHUTCS I» LATITUCI CF PLACE. 

C COL. - 12: DECRiLS II LONGTTUOE CF PLACS. 

C COL. 13 - 16: HT!fUT*S IK LCKCITUDE Cf PLACE. 

C COL. 17 - 20: DECHEES IN LONCI1UCE CF STANDARD TI.1E. 

C COL. 21 - 2*»: HIMUT^S I!» LCKGIIUDC CF ^TASDARD XMI« 

C 

C (H T E : TP A LATTTUDE CC LCHCITUCE IS KEGATIVE r CWLT IT3 

C DEGrEES PAKT SUOULD Pf PPrCEDED 9Y A HINUS S1C||.) 

C 

C CIRD 3: 

C COL. 1 - tt: YEAIt A.D. (CB, PCF "PE6PETUAL" SCHTDOLE). 

C COl. 5 - 8: 1, t¥ DATLIGHl 5»VIHG UHE A&JUSTHEMT kCOUIRED, 

C 0, OTMFRKISE. 

C (W T E : THIS A3JUST1ENT IS UCNE EY ALDINC OME IJUUR TO ALL 

C TIBES *8CK TKE LAST SOHDAT 15 APHIL TC THE LASI 

C S3IDAY T* OCTOBEB. FQh PTRPETUAL JCHEDULES, A LL 

C TtnrS TN TBE Ft8IC0 F6C! APHL TC rCTODEH, 

C I1CLU5IYE, ARE ADIIHCIC DT CKE IIOOR. J 

C COL. 1 - 12: OK 1 PCR P&ATER SCHICULES, 

C 2 POn QIPLA IUCICATOB CHAPT, 

C 1 "OR BC1H PBAYIR SCHICDLE AH!5 OICL* CUIST. 

C COL. 13 - lb: 1 I» 'ASR TIflE IS TO PI COHPUTEC 5CCOSDIIG TO 

C HA1A W I c igH. (SRADOt 8ATI0 » 2), 



IV 



Vtf& 



Pt«yer s<=S«JuL* ^rtp-jt itl»A 

C J ir 'ASP TIBS IS 10 EE C01FUT2*> ACCCCDIMG to 

C THC OTHEi PigiS. (SHACnll HATtO « 1)- 

C 

C (H O T E : X!l" OATA 0!« C\KD3 2 ASC 3 A3E ALL INTEGEa. THEY 

C SDCJLD JE HIGHT-JUSTI? IED JH IHEIR RESPECTITJ riELDS.) 

c 

cccccccccccccccccccccccccccccccccc 

c 

C TBI Pft0CRA1 OUT°'JT 13 01 LOGICAL UM 1T 6, 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

IHTECER !lftUR r YSAn,DECOST,PIHDST 

SEAL LAT,LO»<» f ISimi 

CIHEBSIOI TI".EO (6) ,C0ALT(6) 

LCCICAL* 1 EIUT(4 # 10,5 1) 

EHE15I01 NDriNT H (12) ,111(366,8) 

COlflC«l /1ATH/PI 

CnilCI /ASTP/ODL.D.IAIOn^OllORG^AHOnO.SnLNGO^CIjC^^DELSID^SIDTnO 

C0H1CVPC£VLA:,LATD,LATI! # LC»G,LCICD,lC»Gfl,LSTDH 

C0HO1 /snTCS/ ^OTEI 

DTHENSIO'1 hA1F<"7) 

CATA .1D1STH/J1,28 # 11,30, 11« 30,31,11,30,31,30.31/ 

PADIAN(X) M f ?:/HO 

rEGa*E(IDE<".,.1TNUTR) = ISIGR (.1 1 NUT l , I C EG) /60. 0*1 DEG 
1 BEAO ( r ./),::v^ = C0 3| MA1E,LATD,LATn,L0!lGD ,L0MGn,LSTD,LSTn,YEA8, 

1 TiST,rSij,I\SR 
5 ro»r ATCAu/cig/uitt) 
C POB TEAR iriT)ICAirS TTIAT A PE3PHTUAL SCHE30LE IS CESIHED. US E 1982 

HTEAR^TEA? 

IMTEAR.EO.O) STEAR-1^2 
C ' AS!t SHADOU RATI0 IS 2 MP HANAEI F ICR, 1 rOB OTUEHS 

TASR-1.0 

ir (IASR.9E.0) TASR»?.0 

CALL COKST(NTEAR) 

LAT-RADIAi 1 (EECRSE (LATD # LAT"1 ) 

LCHC-BADIA^tD^GREetLCIGD^LCKGn)) 

LST JH-l/EGRET (LaTD, LSTrt) /1'.. j 
C rin b'r.ifvit; A RO EBDIRC DATS FCB tlYLlGUT SATI-G fZ9l 

CALL DATLIT(TEAB # LSAP,IDST,BEGDS1,riVDSl) 

■ D!1N1H(2) ■ 2 ( WL»AP 

DIPEC-OIBLA(O) 
C APPHOIIHATE Tl.irS OF PA 1B „SHUROQ, ASR, HAGHIIB, ISBA 

tIM»C|1| «6.0 
TIHE0(2) -7.00 

tinsoct) -i*».s 

TinrC(5) »16. SO 

TJ.1CO(6)«1S.O 
C COALTITUDE5. or S0« AT PAJH f SHOHUg, nAGHHB.ISn A 

COALT(I) -RAMAM (105.0) 

CfHLT(2)*nADXA1(90.33) 

C0A1T(5)-C0ALT(2) 

COALT(6) *COALT(l) 
C <1FT APPnOITHATE TIHE3 rci riI5T DAT Cf TIAB. 
C LATER 0«, EACH DAT«5 TIHES AB! OSED AS APPROIinATE TISES FOt IBIT DAT 

CALL *00l(1 r T f C0ALTll) 

COALT (U) - ATA1 (TASI »TAB (COALTl) ) 

niO 6 .T-1 # 6 

T* (J. E0.3) GC TC 6 

T-T;nE(1 # COAlT(J) # TIHE0(J|) 

TMEC(J) -T 

c xr rmc nDETEBimBLS. approi. tihbo(J)-i,2 # 2i,22,2J roi J-1,2,B,5,6 
rr <t.ge.2«.oi tinno (j)-(j-t)/i*i7*j 

6 COBTIWOE 

c co*put; Tin»s pob th» iholp teab 

*DAT1-365*LEAP 
C SC1P03LE 1AKIHG. SKIP ir CBLT CIELI IBCICATOI CHART CISIRBD 
ir (ISO.BO-2) 00 TO 120 
"?0 100 TO.ISATS 



\io -*U>bl^l 



Priwtr Scb94ula Coiputatlon 

f)9 PERPETUAL CALEKDAR, PEBRUART 29 AHE CAHCH 1 HA?E SAHE TinEJ 
R-l 

ip (I.3T.60 .un. tiar -?q-oj k-i-i 

CALL »00(1 |K # T»<Ii 3) .COAlTt) 
C0ALT(1J -ATA!i(T*SR»?AI (CCALTI)) 
DO 10 J« 1 # 6 

rp (J.so. 3) cc tc 10 

T-TISE(K # COAlT(J) # TI«PO (J) ) 
TI1(I,J) "1 

Tinrofj)-T 

C I» TI«E I*n«!TER1IHADl», APFROX. TI Sl C ( J) = 1, 2, 21 , 22 , 23 POR J«1,2,*,5,6 

rr (t.ce.21.01 tiieo<jjmj-i)/3M7»j 

10 COITIBO*. 
100 COITIIUE 
C-*COI*PCT POR CATLIGBJT SAIIRO TISE 
II (fI1DST.EQ.O) GO TO 123 
*0 110 r-BECDST,PI»nST 
00 110 J-1 # 6 

110 TI«(I,J)-TI1(I,J)»1.0 
C SCHEDtUI COSPOTED. tOI PBIIT II OUT 
120 IDATSO-1 

00 300 1-1,* 
C If ASTEIISK PRISTED (I.1P0SST3LE TtHI) , IGTJ1 hllL B! 1CIZSRG 

1OT51-0 

CALL TITLE(I,BA1E # T»AR,ICS?,DI»PCJ 

DO 23S 1-1,3 

in-SD:ilTH (3*M-3».1) 

RDArSI-NOATSO-UlD 

DO 220 L-IDATSO, IDATS1 

DO 210 J-1,6 
C TIRP CCIT'15101 TO A.f1. AID P.R. HCDBS AIO BCUSDPD 1IHUTE:; 

T-TIfl(L # J) 

ROOR-T 

1IIUT-60.0* (I-IIT(T) ) »0.5 

I* f8I9UT.L1.60) GO TO 20°- 

SIIUT-0 

HOOB-HOOB»! 
200 TP (R0UR.GT.12) HOOR-RCOI- 12 

210 CALL BR!1II(HOJR,«IIIOT,lUH(1 # e*S-6#J,LO-IDATSO) > 
220 C0ITTIU? 

IDATS0-IDAT5U1 

tW (IO.E0.31) GO TO 235 

ID1-ID»1 

DO 230 L«ID1,1 1 
DO 2 30 J-1 # 6 
C 8LAIK OOT TIIE Cl irr-EIISTPH CATIS 

230 CALL UJUI(»1,0 # l9l|1 tf i*P-<fJ ff i}) 

235 COltllOE 

IRITI(6 # 2*0 # (L, ((UUfl(I,J,l) ,K- 1 ,6) , J- 1 # 6) ,1, ( (101 <I,J # L) , 
1 1-1 ,4| # J-7,12) # L # ((I0B(K,J,L) # l-1 # €),J-U # in) # L-1,31) 
210 PniniT(0(«I|I2 # 1Z,12A1 # 11,2*411)) 

IF (IOTP1.PO.0) QC TC 300 

IRITI (6 # 2«5) 
2«5 rOIHT(2(U/) # 33l,«* TIBP ICT CCRIOTABLI. 01 THIS DJtTE AT* , 

1 • THH LOCHTIOW, THI 301 DOIS IOT a /36X, ' ATTA II T»I •, 

2 •PCSITICS CCITIITICBAIJ.T OSID TC CIIIIE IPIS PHATER TlHf. M 
100 COITlltTE 

C OTBL* IB9ICAT0R CBART 1AKIIG. SRIP ir OBtT SCHEDOLE DISIRED 
320 Tf (ISO.LC. t) CO TO 1 

DO »00 I- l.IDATS 
C POI PE9PBT0AL QIBLA CHAIT, PEBBUAhl 29 AIC BAtCH 1 HATI SAHI TIoES 

l-I 

TP (3.GT.60 .ABD. T»:AH .EQ.O) I-I-1 

to 3^0 j-i,a 

Tin(I # J)«TSfUC(K,DIIEC-PI/l..0MJ-1)) 
150 COITIIOE 
•00 COiTIIOP 

coBircr rop cuuw satiig tiie 

IP (PIIOST.ro.O) CO TO «0* 



do uos r«8icnsx # Ftiiis» 

CO «05 J-1.1 
«05 TIH (I # J)-TI1(I,J) »1-0 

C OrBL» CR4BT COJIPOTED. HlW PllTIT M 001 
«JDAYSO-1 

DO 500 i«1,6 

CALL TrTLE2(R,IAnE*TSAI,ICST.DIIIC) 

DO Q 3*> 1-1*2 

3D-1D11TH (2*R-2*3> 
HDATSI^WDATTO-ltlD 
00 »20 L-nf>ATS0 # *DATS1 

DO «10 J ■ 1 , a 

*>TIR(L # J) 

hooi-t 

1z*ot-60.0* (t-zit<t) )»0.5 

TF (HmOT.lT.60) CO TO «01 

BIWOT-0 

•39 cAl!rHiiii(HOOR # iiioT^ 

«10 COBTIBUR 

•20 CO»TZ«0E 

1DATS0-BDATS1M 

I» (RD.EQ.)1) r,0 TO «35 

IC1-IDO 

DO »30 L-«D1,31 

DO 430 J-1,8 
C ILIirr OUT TI1F Cl BCI-tllSTMI OATIS 

«30 CALL HMII<-1 # # 1O1(1 # e«B:-8»J*l)) 

•35 COITZ«0E 

«BITI (6, 1*0) <L, (<101(K # J # L1 , * ■ 1 ,6) , J - 1 , «) , L . ( ( «IH ( K , J „ I.) 
1 K-1 ,6) # J-<>,16) f L-1 # 31) 
*«0 rOMAT< {I8,R(1Z # 6A1) ,1", "(II, 6*1))) 

«;oo corTiiu* 

00 T0 1 
iOO «RITE (6,6 10) 
610 rORRAT(* 1»| 

5TOP 

•RD 

C 

c 

SOBROUTHI HB1IB (HO0R # 1I«0T ff RH) 

c rorn stittic ihh: ea zh nn *acn acoi arc rii 

C IF 1I0UB TOO LIIGE (I1P0SSIBLE TI1I), RAKE SIBIHC A* ISTBRISK 

C lin 1AKE R0T51 SOI-3RR0 TC BAIK TIIS SITOITIOB 

C Zr HjOOB 15 *EGITITB(10 SOCH DATI) * TRIB HAK! STEIIG blkUK 

tifTcsi "5oor 

^SggpaMsm --»- 

DO 5 I-t # 6 
S H1(Z)«BLA«IC 

TP (BO0I.LT.0) BBTDIB 
■R(«)«STAR 

KMOOR 

2f (K.LC.J60) CO TO 7 
roT?1-1 

IITOII 

y L"K/100 

i» cl.ie.o) Hi(i)-oian*i) 

R1(«)-col*i 
*R(3)oxi|fi2atiT/n»i) 

m 



ii^ 4«y&tfei 



rjled&c** 



-M\3>i\ 



Tdycc Scht-lul* rc»ruta t-i-m 



C 

c 



-.0 05011 Tl-i". NO^y (NJAT^T^MTO-^CCHLI.HJ 
Co!fPUTE TI1C 0* HCOn I* 7SNCOJ4, 5U* V S CCALTITUDE III COAI.T !J 
m* 3t T TOi NDAT 0F TEA^ 

NC^L LAT.L^i'?, Lac.v:„LC!ir.H,LSTC1l 

C0110S /H7H/?I 

C01101 /ASn/ODL, r :mNCn,niLCK*i, ANCnO,SflLN^O, C1,C2,DCLS IDjSlDTHO 

Cn:i1ON/F0S'l/lAT,LAT3,LAT",LOKG*, LCirJo,LONG.1 # LSTDM 
51L0M0 • JUN"5 ITMII LUNCITHOE, SLCMC - S'11'S inOF LONGITUDE 
L0C1T ■• LOCAL *r.ANJ TI1» OT 10U1 

L.**g;i*L0NG«i2./PI 

DATS-NDAT» (12.0»LOTGH)/2«. 

AHO1LT-ANOl0»0**ANC*l*nATS 

S1L1G"S J 1LHr.0»mLCNr;*>0AT5 

SLOja-SWLNJG-Cl^SINCMCLT) ♦C2»SIH (AHC1L V«2 J 

»A-AIAH2(C0S (OOL) •SrH(SLCNC) # CC^ <SLCSC)| •12./PI 

I» ' (PA.LT. }.) »A»JU»2n.O 

oeCL-ARSr»l(r:iH (08L) •SI1(SL0HC.H 

LPCHT-^M-^LSID^OATS-SIDT.IO 

T«!*0C1*LfiC"T»L0Hi;H-'-STD!l 

I» (TV'001.LT.O.) T-HOCN>TriCrN*2*».0 

IF (T 11001-. 07. 2U.0) Tn*lOCH*THHOOH-2«-0 

C0ALTM-A3SUAT-DECL) 

BETU^N 

MD 



C 

(. 

c 
c 

c 



COALTITUDK IS COALT 



C 

c 
c 

c 



r 3UCTI0*l Tlrt^ (HDAT,-CA 17,71 flFO) 
RPTU?MS TinR 01 OAT 10. HDAY 0F TEAP WHF1 SUW 
r» 10 SUCK TIIE, TltTH ItTOB^S A IARCF Nil!*0fft. 
THE) :S AP?ROII!UT! TI1E 0F PHESCrENCN 

RT%L LAT,LON-. # LCfnT f LCNGH,LSTO!i 

COinH /1ATH/ ?I 

C011CS /AS^.l/OSL^.UNOI^ILCyw.AHCBO^nLMGO.CUCl.DELSID^SI DT.tO 

COniCN/ro5N/lAT.LATD,LATr l ,LONC,LCNOD,LCNG1,L3TDH 
smi ■ SUN*S *EAN LONGTTOIP AT TIIIO, SLCNG ■ TRUE longitudc 
M * 30.1*5 niOHT A.5CENSI01, 3IHCCL - SIMSUN*' DECLI1AT10N) 
HA • SU1'S IIOUR AKCLE KEST 
LOC«T ■ LCCAL 1EA1 THE O? PHEir*E1CN 

TI1E-1.0E7 

LCHGH*LOHG«0./PI 

TAT5*1Q*T» (TIPSO» J.C»>GH)/2M. 

>H01LT=A10TO»C1A101 - DATS 

SlLKG»S.1L1G0»O1LONG»0AT5 

SL01C»SriLMG»Cl«3I«(AllClLT) •C2»SI 5 ( INC NLT*2) 

PA-ATAl2(COS (0TI)»$IN(SLC1G) ,COS<SlQN0n * 1 2. O/PT 

IF (RA.LT.D.) 1A-J»A»2».0 

5TH0Ct'Sli fOHL) •3I1{SL0«1) 

CO5HA*|C03iCOAL7)-51N0CL»5lJI(LAr))/(S:BT()..1-SIlDCL*«2)»C0S(LAT)) 

C-S(fU)>t, TMfH 7I1S CAHOT PF E^ALUAIED 



tr 



c 

r 

C 

C 

C 



If <A*SfCOSHi) .CT.1.0) RETUPh 
MA*Anr0S(CnsilA) • 12. J/PI 

Tf (TH^O.LT. 12.0) HA-2M.0-HA 

LCC1T«HA»RA-DELSID»DATS-S:OT10 

TInr»L0C.1T»L01GH-L5TDH 

* F (TI1*.LT«4.) TriE»TI1F«2u.0 

II (TI*E.CT. 7U.0) TI 1E-TI1E-2M 

■=iFTUPS 

INO 



sunnoutnr TlTLS(N,'*tiE,TEA*,icsT,cirrtC) 

r»M*T TITLE FOr SCNEDCLE, STICSTHLT SIC1ICK kC. N 
nST * ) jr '".ULr.HT SAYItO A0J'J5T.-EKT CCNE, IJ GlREtllSS 
oipec • oi°£ct;oi or ?I*LA, EASTWARC FRC1 N0R1H 15 POSITITB 
I-TEG?R T"-AR # ::^ (II) .^GILSG^CJLI-.^SGKCit.O JflD # yl01 

ntki tAT.Loi-: 

log:c*l*i lxt^i(6) .T.rsr.Mi^) f ;2tcmfiJ 

oiinsroi sa-i (7) . 



-fA - 



lAli-y 



»rCVPt" Sohcluip r gi P itat L->n 

Conc* /**TH/ ?J 

CniirVPCUN/Ilir,l»Ti,LAT-, I0* G # t C *GD, ICNG1,I.JT Clt 

CATA D1T/1HE, 1HK, 1HS # 1HS/ 

nrGnR»(X) -•x»no.o/pt 

CALL HR1IN(IA!?S(LATC) ,tAT1,LAT01) 

SGMLAT-^IRl )) 

IF (IAT.LT.0_) 3C1LAT*D1R(«) 

CALL HR1I1(IABS(LQPG0> ,LCNGP.LCICCH) 

^GMlH3-0t^(2) 

T» (tON0.LT-0.) S51LNJ"1I8(1) 

Afsoi&-AB , w:>:nsc»i&o.O/"i) 
?I0*U|SSOtP 

QXB1=>40.«>» (A3S3ID-I1T (ABSOIO) ) »0-5 
T» (onfl.LT.60) GC TC 15 
9IB1»0 
OTBD-orilD»! 
30 "ALL HRrtI1(Qr?D # CI0fl-CIBC1) 

•.•:«c ii*or"( i) 

TF (Cin»C.LT.l.) SGigi.B-orii (2) 
rf(T*A!7. =0.0) GO TO UO 

urite(& # jt) reia,vini 

1*» rOMAT(lHV2(1X/J ,<41T,I4, ' A.D. PRATE3 SCHSDULd TOa a ,7A4) 
so tc as 

«0 V*IT*(6,*2) H1! 

02 F0H1ATHIH/2(1X/1 # 41X # f ?nP6tUU PRATUR SC:i5DULE fOB ',7**) 

u5 WRITE(6,«3) LATDfl-3GNLAT,LC!IGD.',5CMr kC rf QIUE1,S-*;ilQID 

** roaiiT(ir/iu.'LATiTUDE * a ,6Ai, ix,ai ,6x, a Lcacih:uoE *', 
1 II, 6A 1, 1|,A1,6X,'0I0LA *',6A1,1I,A1,' (FS01 1)') 
GO TO (1,2, 3,1),* 

1 VRITE(6,21| 

21 POIHT(:ftX/) r Pt,'J A i 'J A R T^JOT,^ E B | 'I A I T • , 

1 32X."1 A 1 C H«) 
GO TO 100 

2 IF(TEAr:. EQ. ) . A1 2. T C5T.MS. 0) VR Tl E ( 6 , r > 1 ) 

$1 »0R1A:<2nX/l ,U)X,' (IM APSIL. ACC CW £ ^OUH TO ALLTInE5 , , 
1 ■ AFTv.T LAST SAT'JtOAT) a ) 

VRTT£(*,?2) 

22 FOP1ATC>(1x/) „l«X, a A ? R T t«,37l,"l! A T' 
1 ,101,'J I -I S a ) 

go to ioo 

1 VPXTE(6,?.M 
21 f08lAT(2(1X/) ,>)X,'J U L T\3SX,»A 3 G t) 3 T' f 

i ioi/s ! Pimn fi 

GO TO 100 
» IP> (TEAR.E3-1 .ASD. tnSI.IE.O) W P IT!(6,S2) 
52 F0R1AT(2(1X/» ,3 r )X, a (I.' OC70BJP, 5QETRACT 01E HOUB TR01 ALL\ 

i a t:iss afiep. last jittsdatj a ) 

URITE (*,?») 
^* •OHIAT (2fll/) ,17X,'0 C 1 C E P R*,)JI,*N T E B B l I 
1 2°X,'5 S C 5 1 T £ I 1 ) 

T)0 VPITE(f*, 1 21) 

120 POniAT (1I/4X,(0(lH-) # *T,uO (1H-1 ,»I,«0 (lll-l /**l, 

1 J(3l,'fA.I1 SUUHU3 ZUH3 A3B IIGHrlD I5HA a „ »I) /»X, 

2 J( a DATF DAWS SBRISE RC01 IPMOORj S1SIT *1GRT\4X)/ 

3 «H,uO f 11-1 ,1 t,«0(itt-) ,ix,mO(1H-J) 
HFT'IR1 

F1D 
C 

c 

swdsootik: CMST(RrEAn 
c coirutss A*MO coistaits *cp jas o cr giiib teas 

c 

C 1MYS - TIFF PROR 12 HB(MCCH), JAM C, l'.flO TO HB, JAM 0F NTEAR 
C T - SA1I :i JUMA1 CEiTTasi*S(U5HTS CP 30525 OATS) 
C ©BL •* OCLI^UITT GF rCLTrTTC 

C 0W*1O1, EILOH^.OEL^ID ■ D^tLT ^CTIOI |ChA?(CE) 11 SDV'S A10HALT . 
C SJ*"S 1EA"! LCN^.ITIP». CITESTAL T!1» 

C ASOBJ^S^IOMO.SI^TP.J - 5UN a S TSA» M01AIT, £OR f S UAN LONGArTUDr, 
~ SronP'*t *T*E, IH AT «H, JA» Ot ItkH MTP.AR 
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^jt-T-' ScH«Jule Coaputatioo 

C ci#c? ■ co r rncin.ns ih cguATic» cr ci*n° 

DOU6LS PRECISIOB T.ICD , OATA ■ 

DOUĔLE PttEClSIO* T»DPI,ODEC # £EC,OBA0.05CBE£ f ELOI»r. # OPCL»lG,DX 

COinC" /flATfl/PI 

COB-.0* /A.STR/OBL,DnAHOl # D1LOBC,AiOHO,SPaHC0,C1,C2,DE.L51J,CIDTH0 

DRAO (DEG*EE)-D!10D(OEGiEE # 360.0CO) «CPl/lSO.ODO 

CD*; (IJr.G.HlH,SEC)-ID*G»HI 1/60. 000»SIC/3 600. 0D0 

•)"X)0B(IHOU?. # HTH,SEC)-DDIG(IHCUa,riI,SIC) 

cpi-catan (1.0d0)-«„0c0 
pt-dpi 

icats- <»tear- 1900)- 365» <hteab- 1901)/« 
t-(hcats-0.5do)/3652 5.0dc 

OBL-CR*D(D0EG (2 3, 27, ft . 26 DO) -DDEC (0,0 , Ui . Su 5D0) •!) 

nNAHCH"rRAD(DDEG(3599 9,2,59.1GDC)/36525.QD0) 

1TLOWG-DDAD (ODEC (36C00,«6,ft. 1300) /36 525. ODC) 

DX-DnAD(DDEO(?79,U1, «8. 0«DO) •DDEG (0, C, 1.CA9T)0) *T*T) » 
1 BB AD<DDPG< 36000, U6,B.13D0) •!) 

S*LHG0-DnnD(DI,2.0D0*DPI) 

DI-DHAO(nom(l'j8,2a, 3 3.0CO)-DDEG(0 # 0,.5»DO)*T*T> ♦ 
1 DS-AltDDEG (35919, 2,59. 10 00) »T) 

AHOH0-DH0D(DI,2.0D0»DPI) 

•>»LSTD-nHoaP.(2«00,3,«.S*i2D0i/36 525,0C0 

DI-DHOOR(6,39,a$.*,3 6D0) *01OD (DH00H (2 MOO, 3, U. 5* 20 0) *T, 2M.OD0) 

S1DTH0->!)!1On<ni # 2« # OD0) 

C1*DBAD(DDEG(1,55,10.057CO)-DDEG(0,0,17.2*CO)-T- 
1 ODRG (0 # 0,0.052 00) «T^T) 

C2-DB AD(inEG (0,1, 12. 33*.D0)-DDEG (0,0,0.36100) •?) 

IttOII 
*.RD 

C 

c 

SOBHOUTIRI DAUIT(TEAR,LEAP,ICST,BEGIH,riMISH) 
C PIBDS WHETHEB TEAS 15 L?AP (LCAP ■ 1 If TCS, IP HO) . 
C IP IOST IS HOH-Z*RO, THEV AISO 

C COBPOTES OAT HOS. POH DATLICHl SAVIRGS llBE 51ART A.ND EBD 
C PAT 10. Or HST SU«f>AT CP APHIL (BCGIB) AKD 
C DAT PO. Or LAST SATtlDA T OT OCTOBEB 

lPT*.CrB TrAR # 8*GrH,TINISH # APR)0 # CCT31 

LCBT-0 

■n-*iOD(TEAR,U0C) 

11-*,CD(TEIR, 100) 

IF (Ba.ru. .CB. R1.RE.0 ,AI0. SCD(T1AB, «) .tQ.O) LEAP-1 

U (IDST.*C9) GO TO 5 
C *n ADJUSTHEHT POP DATLIGHT SAVIHC TIBI |TFAF 7F;RO POR PEBPETUAL) 

EICir-36? 

•tsish-o 

R*T0RH 
5 IP (Y r .A".¥E.O) GO TO 1 B. 
C OATLTr.lll SAUIfi TI".F XI PEBTETUAL CALIHCAB. RAT 1 THPU OCT 31 

8!G.I*«1 1*29» 3100*1 

•IMISH-B*,CIH-1010001010 001 

MYORH 
C tO«*ZERO TTAR. FCB A3HUAL CALEIDAD 

C JA*0,A?!I30,OCT31 - DAT OP W!EK CB 7H0SE DA.TES ( r* 1-0 ,SAT- 1, SUH-2,. . . ) 
C tAPR30,HOCT11 m RO. OT DAT II TIAB CA IKCSl DATES 
10 JAH0"".OD(1tt/10O» 12U»1»Hl»Hl/«-LEAP,7) 

HAPR^O- 310*»IE*P01 00 

HOCT31-J65*LEA:»-31-30 

APRlO-lOP<HAPi»JoOAMO,'M 

OCT31*1O0C«OCI31»JAN3,7) 

DPCIH-K.\PP10»2-APB3D 

IP (PP.GIR. GT.K*PR30) BIG1H-BECIH-7 

rtBISI!-K0Cni»1-0CT31 

ir (rJBTSH.GT.*nCT31) n»ISH«riHISH-7 

R*TURH 

IRB 

»OSttT01 OIBLA (!) 



Pr*?»r Sch«»dule Co»putatioft 8 

C R»TURNJ DIR*CTTCN CF QI UL A I J SACIAhS. EASTkABP ERO" SCNTII IS POS. 

RIAL LAT. LOMC,LCNGO, LATO 
C LOMCO.LATO A*TE ICSG AMD LAT 01 1ECCA IN BADIAMS 

COiHCN /1ATH/PI 

COHnnN/POSN/lAT, LATR f T.ATM f LONCLORGD.lONG/I^LSTDll 

CAIA LONG0 f LAT0/-.6937fcAq,. J7q3731/ 

DPLONG=LONG-L0NG0 

OrBLA=ATAN2(SIN(DT"LCNC) # C05 (IATJ »TAK (LATO) -SIN <LAT) »COS (DFLONG) ) 

RETURM 

END 

C 

c 

PUKCTIOH TSHAD(NCAT f BEAR1C) 
C HETURWS TIHE HHEN SHADOM HAS GITEN CEABIpG CLCCKWISE TO NOBTh 
C tP 10 SUCH THE. TDEW TETUPNS A IAPCE RLrFFB 

REAL LAT f LONC,LOCllT f LCNGn.LSIDH 

CGT1CN /I1ATH/ ?l 

COHHON /ASTR/03L,T)NANOn f D!!LC»G,ARCnO f SnLNi;0 f C1,C2 f DELS ID.SIDTHO 

CO!mON/PCSP/lAT f LAT3,LATn f L<5NC f LCNCD f lOHC* f LSTDH 

TSHAD-1-0P.7 
C riBST HAKE SUN'S A7.IHUTH BETWEEH ARC JCO CEGREES, THEN dETWIEN 
C -180 AND *180. If A2I«10TH IS PCStTIVE f llHE IS A..N. , ELS E P. B. 

C APPROIIHATE TIHES ARI 9 Afl MO U PH* 

AZ?1TH"A10D(B2APNG»3. 0* PI # 2. 0«PI) 

TTP1E0-P.O 

IP (AZ1TH.LT.FI) CO TO 20 

AZSTH«2.*PI-AZ1TH 

TTHEO-16.0 
20 10IGH-L0NG»12./?I 

<>ATS-NDM» (T Z .150 *10!IGH) /24.0 

AROnLT-ANONO + CIAMON-DATS 

SNLNG-SJILNSO + OiLOMG^DATS 

SL0SGpS1LNG»C1*SIH(AKCnLT) K2*SI I ( AliCflLT*2) 

RA-ATAM2IC0S (OBl) «SrN ( SLOMG) ,COS (SICNG) ) •12.0/PI 

IP (RA.LT.O.) 3A = FA»2l*.0 

SIMDCL«SiN (0 5L) «SIIJ(SLCNG) 

DECL-ASSIN(SINDCL) 

THSTA1 = AHN2 (COS (LAT) *CCS (AZHTK) ,SIHLAT)) 

THETA2-APC0S (SIN (DECt) *COS (THETA 1) /SI N (LAT) ) 
C GET. (POSSTDLI THO) TALUES C r COALT. 5ILKT TFE LARGEB DNE SC 
C THAT WE |IAVE CCALT <- 90.83 DECBEES (I. E. SU* AB07E HCRIZOW) 

COALT1=ANOD(2.0*PI»THElAl*TnETA2 f 2.0*PI| 

COALT2«A1OD(U.0*PI»THETA1-THETA2,2.0*PI> 

7P (Annn(COALT1,COALT2).CT.SO.e:/ieO.O*PI) PETU*N 

C0ALT*A1AI1 (CCAL?1 f C0ALT2) 

IP ICOMI.ST. 00.61/1 R 0.0*PI) CCAIT-AP.INI (CCALT 1 f COALT2) 

Cn5HA»(COS(COALT)-5lN(DrCL)*SIB(lAI))/COS(CECL)/COS(LAT) 
IP (A!»S(COSHA).ST.1.0) *ET0BN 
HA- ARCOS(COSHA) »12.0/PZ 

IP (TIN'O.LT.12.0) HA«2U.0-HA 
LCCnT-HA»RA-DELSID»DAT5-51PTN0 
T Sll A D" LOC NT ♦ L C K G R- IZ TDf I 
IP (TSHAD.tT.O.) TSIIAD-?SHAD»24.0 
I r (TSI'AD.GT.2U.O) T SHAr = T5IIAD-2 M. 
BETURN 
C SO TP (N.Nr.O) ^TUR.N 

c r-i 

C SOL-PT-SCL 

C GO TO 40 

*MD 
C 
C 

SUBROUTTNE TTTl E2 (N f NA 1E f T E AP f I C ST , 1 1 P TC) 
C TITLES POM OlT.lk INCICATOR CKABT 

INTEGER TEAH, CI9 («) , S jNIMG, SGNL Al , SGN C! P,0 I6D, ?I81 

*EAL LAT,LONf* 

LCGICAL*1 LATC1(6) , LT NCD1 (b) f 01 1 Z» (6) 

nmKNSION NA1E(7) 

COinON /lATh/ n 
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Prayer Schedule Coaputation 
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C0T1ON/P0SN/LAT, LATO ,LATn,LQNG, IONGD, LOKGH ,LSTDH 

PATA Drp/1HE,1HW,1HN,1HS/ 

DEGREE(X) *X*180.0/PI 

CALL HRHIN(TA!?S(LATn),LATB,LATDfl) 

SGNLAT=DI3(3) 

If (LAT.LT.O.) SGNLAT»UIP(4) 

CALL !IRniM(IAPS(LONGD) , LONGr , LONGEH) 

SG*L*G»niR(2) 

ir (LOHG.LT. 0.) SCNLNG=DIR (1) 
AnSQn*ABS(DT5SC*n0.0/PI) 

9IBD-A9SGIB 

QTBPl*60.0* (ABSQIB-INT(ABSQrO) ) *0.5 

IF (QXB1. LT.60) GO TO 35 

QXBi!*-l 

qidd=qibd»1 
35 cal: hriin(qii?d,qid.i,qirdh) 

SGNQin»DTl(1) 

IP (DIREC.LT.O.) SGVOID=DIR (2) 
TP(YEAR.EQ.O) GC TO 40 
WRITE(6,37) YEAR,NA1E 
37 rORrJAT{HM/ 1X/ ,U0X,IU,' A.D. $lZl.h INCICATOR POF ',7AU) 
GO TO U5 

UO VRITE(6,U2) NAME 

U2 ?ORflAT(1H1/ 1X/ ,U0X, «PFRPETUAI CIEU INDICATOR FOB • ,7A*) 
U5 WPITE(6,4fl) LATDr # SGNLAT,LCNGCn,SCNLKG # QIBC.1,SGRQIB 
08 FOHHAT( 1X/31X,«LATITIIDE = ' , 6A 1 # 1X. A 1 ,6X, ' LONGITUDE =•, 
1 IX, 6A 1, 1X,A1,6X, »QIBLA - • ,6 A 1 , 1 X , A 1 , • (PROA N) • ) 

WRITE (6 ,U9) 
U9 F0RHAT(2(1X/) ,17X, 'TIPE WHEN CIBL* 15 AT GIVEN ANGLE TO SIIADOW 

1 • 0F YSBTICAL CBJECT , //U8X, 1 (• IKCJCATIS NO SUCHTIHE ON ', 

2 'THAT DAT) •) 

GO TO (1,2,3,U,5,6) , K 

1 WRITE(6,21) 

21 rORnAT(2(1X/) ,29X,"J A H U A B Y',51X,'F E P R U A B !•) 
GO TO 100 

2 IF(TEAR.Eg.O .ANC. IDST.NE.O) WRITE(6,51) 

51 F0R*AT(2 (1X/) ,UOX, ■ (IN APBIL, ADE CRI HCUR TO ALL TInES•, 
1 AFTER LASl SATURDAT)') 

BRITE(6,22) 

22 rOR3AT(2(U/) ,31I,M A P C H',56X,'l F R I L») 
GO TO 100 

3 WRETE(6,23) 

21 F0R«AT(2(1X/) ,33X,«1 A PjSSl^J U H l 1 ) 

GO TO 100 
U WRITE(6,2U) 
2U ?ORHAT(2(1X/) # 32X,' J U L Y I ,56X, , JI C U S T*) 

GO TO 1 00 

5 IP (YEAR.IO.O .AND. IDST.NE.C) WPITE(6,52) 

52 *08HAT(2(1S/, # 35l, •(!« CCTCBER, SUBIMCT CNE HOUR FR0H ALL « 
1 ,' TI1IS APTER LAST SATURDAYJ») 

WRTTE (6,25) 

25 ^HRBAT(2(1X/) ,27X, 'S E P T E ff B E P«, 50T,'O C T O E E RM 
GO TO 100 

6 URITE(6,26) 

26 FORMAT(2(1X/) ,28X,M V E H E E B',50X,*D E C E * B E R«) 
100 WRTTE(6,120) ' 

120 FORHAT(1X/6X,59(1H-) , 6X , 59 ( 1H-J /61, 

1 2(6X,'ANGLE (DEGREES) CICCKHISE F6C?1 SHADOH TO Q1BLA',13X)/ 

2 2(6X,'DAY 45 90 135 180 225 270 

3 ■ 315 •)/,6X,59(1H-) ,6X,59(1H-) ) 
RETURN 

END 
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Prcdictioo o? CrfeSceDt's YisiMlity 

C PRnr.RAI TO CO*P'JT c ODS^BMTION DATA FCF NEW CtESC c MT CBSERV JlT IOM 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C WHITTEN 3Y 

c 

C S. KAHAL A3DAII 

C rATHElATICAt. SCIENCSS DEPHB13INT 

C RFNSS^LAER P0LTTFCHNIC IKSIITUIE 

C TROY r NEW YORK 12161, U5A 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCC^CCCCCC 

c 

C T1TS PROORAM CCNPUTES A NV PRINTS CUT ALKANAC CATA FCn 0BSEBVIN1 
C THE 100N ON AMT SYENIN<; 0? PR03AELE NEW CRESCENT VISI3ILITY. 

C IT ALSO DETEBJ1INES THE HKELlfllCCC Cr THE rtCGTMS VISIdILITT 

C K3 "111011", "SOHB*, OR H POOR" BASEC CM THE AL3EIHU*! CRIT^RION 

c (see jltt*cii*d MRITE-UP.) 

C THE 100N'S ?0SITI01 IS COHPUTID FRO!< TEIG SER^ES VALID POR 

C THE PSniOO 1990-2100 APPRCIIHATEIT 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

\ir j,Vh&ji 



Prtdictioo of Ci*-sceDt«s VisibiXitf 

C 

C INPOT DATA TO DESCPIBE TIBE SHGULD BE ON UN IT S , ki, POILOMS. 

C 

C * CABC GITINJ THE DATE A1D THE GREE1NICH flEAh IHE OP TIIE 105T 

C •ECRNI ASTRO^OPTCAL "NFI PCCh r KHICH PAS CCC^REC Dt*OKE TbC - - 

C ETENIKG FOR WHICM THE CSrSCEIT OBSEBTAIIGN CATA IS DESIRED. 

C COL. 1 - U: TFAn A. D. (Ifi00 THHO 2 100) 

C COL. 5 - 1S IOHT'1 (1 THRO 12) 

C COL. 9 - 12: DAT (0 THBO 31) 

C COL. 13 - 16: nO0B (0 THBD 23) 

C COL. 17 - 20: HIMUTES (0 THHU 5S) 

C 

C 01f CB TORE CAKDS EACH GITING III E LATt(S) 0? TIIE ETSNIN(J(S) P09 

C HHICH TIIC CR*.SC£NT CBSERTATICH OATA 15 DISIETD USINC TH» ADOVE 

C "1E¥ BOON" TIHE. 

C COL. 1 - H: TEAR A.D. 

C COL. 5-8: HONTM 

C COL. 9 - 12: !>AT 

C COL. 15 - 3«; TITLG WHICU WILL EE PRIHIED 01 DATA 

c (c.g. "EHn cr BOiuiMr 1^01") 

C 

C A CARC C01TAIHI1G A 3EHC IN CCLUrtN 1 TC TE8PIHATE C0.1PUTATICNS 

C 0SIHG THE AROYE "N!¥ TOON" TI3E. 

C THE OATA CN LCGICAL UNIT 5 HAT HATC *CFE THA* 01E SET, EACU 

C 01 WHICH C01TAINS PIRST A "NEW BO£J" TIHE, TAE1 SSTrAAL DATE5 

C FOR WHICH TH* CHESCFNT CDSERTATICN CATA IS REQUIREO f AND 

C MHALLT A CARD COSTAINING A ZFRO I» CCLOHI 1. THE PDOGRAn 

C RtECUIIO* TEPHKATPS BHKI Af END-CP-FlLr IS ENCOUNTEHEn 01 

C UHT 5. 

C 

c 

C TNPUT DATA ADOUT LOCATICNS SHOJID EE EBCTIDED CN LOGICAL UHIT 1, 

C HI1ICH SHOULD BE A "A?E OP DJSR TIIE CAPABLE 0F DEING BEWOUND. 

C FOR EACII LOCATTON DESIlST, THE IHEUT SHOUID INCLUEK THBEE CA3D 

C I1AGES WITH THE POLLOWING DAIA LAIOJOT: 
C 

c capc l: 

C COL. 1 - 2R: TNA1E OP PLACE. 

C 

C CARO 2: 

C COL. 1 - **: DEGREES IN LAIITUDE Ct PLACE. 

C COL. - *: .1INUTTS IN LATITUDB Cf PLACI. 

C COL. 9 - 12: DEGREES II LONGITODE CP I • . 

C COL. 13 - 16: .1II0TES IN ICNGITODE CF FLACr. 

C COL. 17 - 20: DEGPEES II LONGITUDE CF STASDARD TI5E. 

C COL. 21 - 2U: 1INUTES IN LONCITUDE CP ST>.NDARD TIH2. 

C 

C <* O T E : IP A LATITODI C3 LOMGIiat! I' NEGATTVE # OHLT ITS 

C D5GREKS PABT SHCULD EE IBECIDID DT K HINUS SICN.) 

C 

C CARD J; 

C COL. 1 - 4; IGNOBED 

C COL. S - R: 1 # IP 3ATLIGHT SATIIG TIHE ADJUSTNENT REOjUlREO, 

C 3 # 0THE3MISP. 

C (H T » : THIS ADJDSTP^NT IS DCIE €T AtDTHG CNP HOOK TO ALL 

C TIHES rROS THE LIIST SONDAT IM APRIL TC THE LAST 

C SONOAT IN 0CTCBE8- 

C 

C fl T E : THE DATA ON CARDS 2 AIC 3 AEI ALL IMTEGER. THET 

C SHCULD BE BIGHT- JDSTIP IED IN IHEIB RESPECTITE FIELDS.) 

C 

CCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCC 

c 

C THE PBOGBAA ^RODOCES THE O0T n UT CN ICGICAL DNIT 6. 

C 

f'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 
C 
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Pc^-lictioei of Cccscpnt's YialMLity 

PEAL LAT,LONG.LONG1I,'ST:)II 

R»»-L 10HA,1LliA,ir;CL,»1AZZ1 r nALT,1A7I11,:iAITl 
coihon /HATII/ PI 

COIICN/prSN/lA?, LA^O^I.AT-^LCNCLCHGD.LCHr.n^LSTDII 
COIrtCN /XM*Z/ HDAT,5TSUN,U1StN # STHUK # STCTL # 'JTCtL 
CO110N /COOnD/ SDCL^SLHA^SASIH.nGHA.nnCL^nLIIA.HALT.nJUI.I, 
1 DASIrt.AN^OIT, R&ZIB1, HALT1 

TNTEGEH MA1S(5) , NEW1UM (5) , Zr,H IAT , SGHI WG, 5GNDA Z , RSG DST, r I HDST 
THT-BGER AnP1,!IIJDAT( r i) 

IHTEGSR SY- (G)/1HN. 1HS, 1|IE,1rH, 1|!A,1HP/ 
TITEGrP 10NTK<12)/3HJAN,3HFEB,3lirAB,3l*APF,3linAT,3HJUH,3HJUL, 

1 3RAIIG. IHSEP.-IHOCT, moV,3HCEC / 

RFAL*ft POOR/» P009 •/ # SORE/« SC"!E •/# 
1 IIIGH/' HIGil •/# TS3LIT 

PADIAN(X) »X*PT/1*0.0 

CEGREE(IDEC,1IIUTE)*ISIGN (HHUTE, IDEC) /60. C^IDEO 

10 BEWIHO 7 
C HEAn DA5E AMD 7M5 0* *STRCNCKICAL "SEH rOON». 
READ (%20,ESD«260> VEW10S 

20 •oRnAT(Sru) 
C !IEAD DATE fOn RIIICH CTiSSCENT CBSEBTA1IGN DATA IS TO DE COHPUTED 
100 »*!AD (5, 100,'ND-260) IT^AR I KCHTH , IE ATE, HI JDAT 
105 FOR1AT(3IU,2X,5A«) 
C TEST ir EMD Of SFT Of DATES F*iR HHICH PBESENT "NEI 10ON" TIHE 
C TS APPLTCABLP. EH!> SEHTIS2L IIAS TEAR « t% DATE. 

1F (ITEATt. EQ.O) GO TO 10 
C *OT * SENTIMEL SUT A GOOD DATE. PRIKT TAELE HEADIHG AND CCHPUTE. 
IRITE (6, 108) IIIJDAT, 10NTH (IHCNTH) , ICATE, ITEAR 
10« -ORnAT^ril^OI.^ATA FOB CRESCIIT C bSE1VATTOH »/ # 
1 1 HO,- EHTD Or • # 5AU/1X # A3,I3 # *,« # IU, 
NRTTr(6,110) 
no forhat<iho # 6:ix,'ioon',ih' # 's POSITICk AT SONSET',41, 

1 -*AT CTL TWILT'/60X,32 ('-') , IX, 1 2 (•-• )/2*X # • IAT' # 5X # 

? «LONC.t # 2X # '5UHSET« # 1X # , .1CCNSET',1X # , CTTHLT , ,2X,' AGE', 

1 2X,'AZI:-TH',1X # M!0P DG* # 1X , ' ALT II- # 2X # 

U «ANGLV # 1X.«AZI1TH' # 1I.' ALTIT • # IX # 'T SBLITT ' # 2I # • CRIT» 

5 /ll^PLACE^.m.^DG 1N' # 3X # 'DG HN V # 2X # *HII RN* # 3X # MIR RN',2X # 

6 MIH 1H' ,23, •HO0^S' # 1X # 'fDOn H',1X # MR SUM' ,21 # ' DEG' , 

7 2X # 'fn S3!M # 1X, f *RCI1 N f ,2X # f DIG f # 2l # f CHANCES',2I, f Dirr' 

* /1X # 20 (•-•) ,2I # 6< f - f ) # 1I # 7 (•-•) # 1I # t (•-•) # 11,7 (•-•>, 

• 1X # 6 (*- *) # 11.5 (•-•) # U, &(•-*) ,1X # 6 (•-•), 11.5 ( v -•), 
& 1T # 6 (•-•) ,1X,6f-') ,1X # S.('-') #1I#7 (•-•), 2I,4i (•-•)) 

115 READ (7 # 120,E»D-25O) NA1E. LATC, LA1H,L0HGD, LOHC1, LSTD, LSTH , 1D3T 
120 •08»! AT(5A«/6IU/«I # IU) 

CILL CONST(I»SAR) 

I.AT"Dr M '. (DCGRf E(LATD.LATn) ) 

LCNG«RADIAN (DECRET <LCNGD, LCNG1) ) 

LSTCH-DEGREZ(LSTC,LST1)/15.0 
C ?I»D BEGINHTNG AND END Of 3ATLIGHT SATIHC PERIOD 

CALL 5ATLIT (Tf EAI,Lf AP, ItST # EECtST.I IMDST) 
C rT^ID DAT H01PER 01 GITIN DATE. 

NDAT-10nr>AT(ITEAR # I1CNTII # IDATE # L!AF) 
C riND SUNSET TI1E, CIYIL THILIGHT TIHE. HOON • S POSITIOH AT 
C S3»S»I AND AT CIVIL TWILIGUT, AKD HCCNSIT TIHE. 

CALL SUNSET 

CALL CIVIL 

C*LL 1P0SIT 

CALL HP0S1 

CILL HUMSIT 
C PRTPARE fOR PRINTINC THE CDSEDT ATIC I AL CATA 

LATABS»IAES(L»TD1 

SGNLAT-STH(I) 

IP(LATD.LT.O) SGHLAT-STH (2) 

L*rn1*LAt1/10 

LAtl2«r1OD(LllT1 # 10) 

LVGADS-HfcS(LCNGnj 

SG1LNG*STn(U) 

IP (LOHCH.LT.O) SGWLNG*STH(3) 

ICdGHl-LONGnyiG 
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Predicrion t^ Crenceht's Visiliility 

tCNC«:>=i;CD(L0*C1,10) 
C 0*3*0*1 IAYLI^IiT SAVINJG TIflF ACJUSTKENT. 

ir (NDAY. LT.DE^DST .0*. ND A Y. GE . F IMD 51) GOTO 220 

STSUn»31SDN»1.0 
ST1UN S ST1UN»1. J 
S1CVL*STCVL»1.0 
220 IHRSUN=STSUN 
C CnNVPRT TMtS INTC A.3, OB F.fl. HC1SS AFC (RCUNnEC) HNUTES. 
SKSm- (STSUN-IHPSON-) •60.0*0.5 
If (HNSUN. LT.63) GC TO 222 
f!ISUN«0 

IHPSUN-IHRSONO 
222 IHnSUN-rHPSUN-12 
1HSUK1-1N5US/10 

K*SUB2-nOT>(niS"J'i # 1C) 

IHRCVL-STCVL 

1»CVL= (STCVL-IHPCVL) »60. 0*0. S 
IF (HNCVL.LT.60) GOTO 22) 
IKC^L-^ 

IHRC*L=IHRC»L»1 
2?) IHRCVL"IHI«CFL-12 
1NCVL1»nNCVL/10 
1NCV12- lODCINCYL, 10) 
IHR10H*5T1U1 
1Nnun-(ST!1Dri-I!IR.1UN) »6 0. 0»0.5 

tt (m4un.lt. 63) go to 2 2* 
iniuh»o 

IHR.1UN«m!»1UN*1 
llt A1P1=SY1(5) 

ir (IMR1UN.L*. 12) GO TC 230 

»rni=SY" (6) 

IHRnUN-IHP.IUN-12 
230 1N1UN1 = 1N.1UN/10 

■N1U"2»10r> (HN"UN # 10) 
C COHPnTE N0ON«S AGI AT SU»SET 

AG?. = UTSUH- (N«"U1J!l(5)/60.O»NEUrUK(i|)) • 
1 (NDAT-NII1DAY (NCU"*nN ( 1) # NEUPUH <2) , NEWPIUN ( 3) , LEA~) ) «24. 
nAZAeS«A3S(0A7in) 
SGNCA2-SYM1) 

Tr (DA2I1.LT. 3.0) SGNDAZ = SY.1 (2) 

THRESH» (-O.S7lu3r-2*DAZABS-0. 13? 1*1 F- 1) • DA2 APS» 10. 17*3 
CirfER= (nALT-TH3ES!l)/THPFSH 
VST)LTY»SC«1E 
IF (LirrES. LT.-O. 1) VS3LTY=POOB 

ir (nirrrR.^T.o.i) vsniTY»Hica 

WRITE (6.2*0) NA"E f LATABS # LATni,,LUl2 l SGNLAT # LNG*PS # LONG.11 # 

1 LOMGl2 # 5iGKLNr; # IHrSUt # 1 NSUNI^ 1H «U N2 # I \tU 1D N # .Ik KU *1 # S 9 90 II 2, 

2 AnP1 # THPCVL # nNCVL1 # HNCVL2 # 

1 AGI # 1AZI1 # DAZA93 # SCWDA2,- A LT # AKCDS1 # 1 A2 111 , "ALT1 # V5H iTY 
* # DIF»»R 
2U0 rOR1A?(lX.5AU # 2X # I2 # ': ' # 2I1 # A1 # 1I # I3,«: ■ # HI1 # A1 # 1I # I2,': •,211, 

1 ' b, ,2X # I2 # ':* # 2I1 # ai # 1i # I2 # i :»,2H.'p« # 

2 ix«fS.l 9 TX,r5i i,'«',ix # r5. i # ai # u,f5. i # u # 

3 r r ». 1 # 2X # P5. 1, »U' # 1X # F5.1,2X # A6 # 1X # F5.2) 
GP TC 115 

*3J RTJIND 7 
^O T9 no 

760 un:?S((i # 270) 
3T0 t>ORH.1t(lHl) 

1TOP 

MD 

( 

TUNCTiON *0K3AY(Y7%&| LE*" 1 ) 

i .j>«:tu o :i5 oat no. tn ypas y cf CAT! C IN rCNTll 1 

< L!AP-t IF TEA!> IS L2AT # Z\ NCN-lEAr 

IM7 r «irH Y.H.O.LSAP 

N0!1C.\Y=D» (1-1)»J0*5« 1/*)- (<*»>)/ 10« { 2- t?AP) 
P-TURN 
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ProiLction of Crosccnt'3 Vici,bility 

sno 
c 
c 

SUDPOUTINE H.P0SIT 
CO-«UT r S ;1C0N'S POSITTCN AT sunsei TIPE(K¥AT« uhiversal tihp utsum 

r 1GII.\ # #1LHA # HDCL * 100N , S GIIA f LHA # CEC l INATION 

C nALT # *A2T1 # ANGDST*nO0N"S ALTI TU CE. AZ I*UTH, A NGULAP. tUST FBOH iUH 

C DA7H = 100N'S AZf1UTH D1FF?SEMCE(» IF NCUtl) FRni 3UN 

C ■MLT1,1AZIM=nC0!4 , S ALTTTUDE, A2TKUT H AT END or CIVTL TKILIGIIT 

PEAL LAT # LONG # LONG!l # LSTDH 

RPAL HGIlA,lLHA # 1DCL # HA?I1 # rlALT # rlAZIHl,HALT1 

CCSHON /1ATH/ PT 

CO«1.1CN/POfN"/LAT # lATD # LATn # LO NG, LC NGO ,LONGH # LSTDII 

COI1HCN /TIKIiS/ NDHY # STSUK r UTSC*,STrUK,STCVl,tJTCVL 

CnHHON /CnOf»C/ SCCL.SLHA.SA^II.IGHA^DCL^HlHA.IALT^HA^m, 
1 DAZIM # ANGDST, BA2iri f nALT1 

••A?1ELIST/-<POS/nDAY # UTSUW f DAYS # rlGHA # nillA # nDCL r 1ALT # MAZIr1 # 
1 SAZI1,CAZIt! # Ai;G1ST 

CALL HHACCL(UTSUN) 

"LHA-1GHA-LOHG 

1ALT=-AnSIN(SIN (.1DCL) *SIN(LAT) ♦CCS (HCC L) * COS ( LAT) •COS(HLHA)) 

1*ZTr3 = HRS (ATAN2 (SIH ( 1LH A ) # CCS (LAT ) *T 1« (P1 DCL) -S I N (LAT ) *COS (HLHA) ) ) 

S!.HAH = SLHA»PI/12.0 

SAZIM«ABS (ATAN2 (STN (SLHAR) ,CCS ( L AT) «T AM ( SDCL) -SI1 (LAT) 
1 •COS(SLIIArj) ) 

*AS?<l«3A a ,X!f-!IJl2Xfl 

AI.TSUN=-0.033 3 33*?I/ 160.0 

INGDST=APCOS(5IN (ALTSUN) »SIN (PALT) »CCS (A ITSUM) *COS (HALT) • 
1 COS (DA7.I.1)) *1fl0.0/PI 

HALT=1ALT*1A0.0/?I 
PAZin»r1AZI1*1P0.O/PI 
DA2IH=DAZ1 1*1 8 0.0/^1 
C SRITE(6 # HP0S) 

»1*091 

KHTRr HP0S1 
CO*POTFS 1CON'S POSITIOn AT EHD 0F CIVIL TklLIGHT 
CALL 11IADCLf JTCVL) 
1LIIA=1GHA-LnNC 

•MT1=APSIN(SIN(nDCL)*SIH(LAT)*CCS(PCCL) *CCS (L hl) •CQ5 ( MLHAJ ) 
„ 1 »130.0/?! 

HAZTM* ABS(ATAN2 (SIN(HLIIA) # CCS <LAT) •TAN(HDCL) -SIN (LAT) ♦ 
1 COS(ILHAI) )«1RO.0/PI 
RETUSN 

SUnPOUTINE 30NSET 
COHPUTES TI1C CF rlOOMSET ON GIVEN CATE 

C »IT1UN ff ST1UN«UNTV»RSAl TI.1E<IN D AYS) # ST A *CAPD IX*1E(XN HfiS) OP nOOHSET 
C UTSUN»UVIV. TIHE OP SUNSET, USED hS MRST APPGOr. TC 100NS2T TIHE 

R*AL 1IICA0 # 1f:i1Al,1LHA0 # lLHAl 

REAL LAT # LONG,LONGH,LSTnil 

REAL 1GI!A.1LHA,1DCL # HA7.T-,r.ALT # 1AZIH1 # HALT1 
COIION /1ATII/ PI 

Cni1CN/P0SN/!AT # LAT3 # LATl,L0i:G # LCNGD # l0NCn # L5TDH 
COIICN /TI1ES/ NnAT.STSUN.UTSCK^STnUN^STCTl.UTCTL 
COIHCN /COORC/ SDCL # SLIIA # SAZI1 # "*CHA # nCCL # niHA # 1ALT # nAZin t 
1 nA^lH.HNSDST^HA^Itn^HALTl 

DOUDLE PRECISION DATS 
STHUn=1 .0E 7 
UTMUN=0T3UN/2U-0 
DA¥S*inAY»UT10K 
CALL HHADCL(UTSUM) 
1GNA1*HCHA 
1LMA0=1CHA1-LOWG 
n ^LQA«34T.Q1*pt/ 1*0.0 

COSLIIA= (1.00 233-SIN (LAT)*SIN (1DCL) ) /CCS (LAT) /C05 (H'JC L) 
I? (ADS(CO^LHA).GT. 1*0) RETUIN 
HL||A1=ARCOS(COSLHA) 
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Pretlctlon of Cr*sc*nt»s Visibtlity b 

0FLTI1- (1LHA1-.TLHA0J/DELHA 

IF (CELTn.LT. -0.5) DELTI.1= DEtT !>♦ J.fl*K/MLHI 
IF (DELTIH.GT. *0.0) DELT IB= DELTir-2. 0»P I/SEUI « 
UT10N»UT1UN*DELTI1 
10 IF (DrtTI1.LT. 0.000) r.CTC 20 
IGHAO-IGH.M 
HLHAG«nLHAl 

CALL 1HADCL (0710>*2#i 0) 
*GHA1«1GHA 

CELHA-CIGHAl-IUHAOy/DELTII 

IF (T>ELHA . LT.O.O) OTLnA» DELH A *2. 0*F I/CELT I r 
COSLHA-(0.002 33-SIN(LAT)*SIN (HDCL) > /CCS ( LAT) /COS (MDC L) 
tf (ADS(COSLHA) .4T. 1.0) SETUFN 
1LH*1-ARCCS(CC5LHA> 
CELTI1- (1THA1-1LHA0) /DELBA 
DTHDM-UTSDW*DELTIS 
CO TO 10 
20 STHUH»UTnUN*2**.0-LSTDH 

HETUBN 

tn 

C PIHOS ■HETHER YE\3 IS LEAP (LEAP - 1 If YES, t IF NC) , 

C ir IDS? IS N0N-7.ET0, THEN ALSO 

C C01PUTES DAT 105. FOH DAYLIGHl 5ATIKGS TIHE START A'10 END. 

C DAT MO. 0F LAST SUSOAY 0F APBIL (BECIN) AND 

C OAT KO. 0F LASl SATKDAlT 0F CCTCBEB 

C TF IDST IS ZERn (DAYLIGKT SAVING TI1E SCl OBS£RVED), THEM 1AKES 

C RAMCr 0F DATLICHT r.A TS PntTY HY SET1IKC EEC IN,F INlS'l-367,0 

INTECEB TEAH,BEGIN,?IM5H,APR30,CCT31 

LFAP-0 

"<i4*nCD(TEAR,<400> 

Ht»HCD(YEAR # 103) 

IP (HO.EO.O .OR. H1.NE.0 .ANC. rCC (TtA.I, U) . EQ. 0) LEAP*1 

IF (IDST. TE.O) GO TO 10 
C DATLIGHT SATING TIH* MOT CBSERTEC. SET CATLIGHT HA^6H TC EHPTY 

5ECIH-J67 

rimsn-o 
nrTUBN 

C JAH0,AP»3O,OCT31 - CAT 0F WEEK CN TIICSE CATE5 (FR 1=0, SAT- 1, SOR «2. . . .) 
C HAPB30,HOC?31 - 10. 0F DAT IM T!AR CN 1HCSE DATES 
10 JM0*nOD(H«/1<}0*l2<l*1»ni»*lV<t-LEAP f 7) 

NAPB30-31»28»LEAP*11O0 

NOCT31-365*tEAP-31-30 

APB3OMO0{MA?B30»JAN0,7) 

0Cf3i-1OD(NQCT31»JAN0,7) 

P^GIN-MAPBIOO-APRJO 

IF (BECIN.GT.NAPU30) BEOIM = BECI ( N- 7 

riNISH«NOCT31*1-CCT31 

ir(FINrSH.GT.M0CT31) PlOISR- I C9XS H- 7 

RETOBN 

EIO 

C 

c 

SOBROUTINE MIADCL(UT) 
C COHPUTSS nOON»S CIIA A13 CECL AT UMIV. 1112 "JT OH NDAY 
C USFS SEBIES VALTD FOR PERICO 1BCC-1900 APPPCI I1ATELY 
C BEFERENCt: AL1A'IAC FOT! C01PUTERS, 1978. (HE HAV? TRUNCATCD THE 
C SEHIES 10 ODTAI'1 SUFFICTENT n, 3ECISIC* TCF CUR PJPPOSE) 

REAL UT f t01C,tOWf3H, LST3H ,LTSUN 

REAL 1GHA f 1LIIA # ir>CL f rAZI.1 f nAlT f rAZIM,nALT1 

COIHON /HATIi/ ?I 

C0nCVPCSN/LA?,LA?D,LAT1,L0*G„LCIiGr,LCNG!1,LSTCii 
CQ1H0M /TI1ES/ 10AT,STSUN # UT5LM # SinCN,.STCTl # 'JTCVL 
COinCN /COOPO/ ST»CL # SLHA # SA2in,rGHA # rCCL # 1LH\ # ialt, «Aiin, 
1 D»Zrn, ANC05T.nAZini # "ALT1 

OOUBLE PR»CI3:CN D.1C0, 1ATAS 
DOUBtE PRECI.ION ?, CPI # DRAD, DECn* * rrEC.SEC f DX 



UA 



j. m b>\>Vj\ 



Pre-iictio» of Cwscent'5 Visibilit| * 

DOUBLE PBICISION 00. AO,C0, 10.00 * E0, EG, *0,Gr.STO, DG, IA, DC,DN ,00, 
1 DB,nE,0« f DG??JT 
REAL G,A,C,N,D,D,-:,W,C1ST,BBA 

DBAC(DEGREE) =D"10C (OBGREE , 360. ODJ) *DP 1/160- ODO 
nPEG(IDFG,HIN,SEC)«SEC/360 0.ODO*B3H/60.0tO^IDEG 

DH0US(IHOUR.":i,SEC)=DDEG(IHOUB.BIN,SSC) 

DAVS«!»OAY»UT/?a.O 

G=DRAD(GO»DATn*DG) 

*-DBAD(A0^0AY5*r)A) 

C-DRAD(CO ♦DAYS*DC> 

*-ORAD(HO*OAYS«D!n 

D-DnADCDOOAYS^DO) 

B-DRAD(B0 ♦DAYS*DB) 

F«DBAD(E0»nAYS«D6) 

B^DRAD(MO»DAYS»DW) 

GffST*DRAD (G1ST0* 15. OU 106 »639500 *tT»NCAT*DGHST) 

THE?l=-0. 01<43U*S:iN(G^B-2*D + H) -0 . 165 2*SIW ( A*G*n- 2*D^N) 

1 -0.01969*SI1(2*A»B-2*C*1) »0.02 7*SIH (2*A*8^K) -0. 0299« *SI N (A-B-2*D) 

2 -0«03759*SIH(0*BM)-O.n3«82*SIM(G-B-H) ♦ O.0*j">32*SIM(B^2*D*N) 

3 -0.0«77 1*SIN(B-*)-0.06505*S3N(A^B-2*D) »0. 1362 2* SIM (A»B) 

4 -0- 1u511*SIM(A-n-2*D-N) -0. 18 35««£IN (P-2* C) -0. 20017*S IN (B-2*D*H) 

5 -0.38899*SIN(A»B-2*D*H) ♦0.«02«8*SIN (A-D) »0. 659"* 3*SIN ( A*B+N) 

6 *1.96763*SIM(A-B-H) ♦*. 95 3 72*SIN (B) ♦ 2 3- 896e*»*SIN (E + M) 
HHO- 1.50 5 3U*C05 ( A-2*B) - I. 67« 17*C0 5 (A »2*D) ♦ 1.99«o3*C0S (A*G) 

1 *2.07579«COS(D)-2. «55*CCS (A-G) -2. 7« 0£7*CQS ( A*f;-2*D) 

2 -3.83002*COS(G-2*3) -5. 37fl 17*C0S (2*A ) »6. 607ft 3*CC S (2*A-2*D) 

3 -53.97626*C0S (2*D) -68. 6 2152*C0S (»-2*C> - 395. 136 7*COS (A) *36U9.3 37 
PHI*0.01122*3IM(A*2*D) »0.01U10*SIN(A-2*D-N) 

1 r0.01*1*SI!f (A»2*B-2*D*N)+0.01«2«*5IN(A-2*E) 

2 *0.01S06«STN (A-2*B-2*C-2*H) -0.01567*51* (2*B-2*D) 

J *0.O2O77*SIN(2**-2*D*2*N)-0.02 527*SIM<A+G)-0. 2052*31 S <A- N) 
« -0.02*>52*SI1(A»2*B»N)-0.0 3«87»SI!I(C)^O.Q368«*SIH(1-G) 

5 -O.C3981*sr!l(?*D»1) ♦O. 03*»83*SI ■ (2*B-2*D^ N) 

6 ♦ 0.0«0 37*SIN(1 + 2*B-2*CO*M) »0. 0U221 *SIN (2*A) -O.OU273*SIN <G-2*0) 

7 -0.05566*SIN(2*A-2*D) -0.056S7*SIW(A*C-2*D)-0.068«6*SIN<AO*B+2*N) 
R -0.Ofl72U*SrN(A-2«D-N)-0.0O72U*SIF(A#H) -0. 1 1 U6 3*SIM (2*B) 

9 -0. 186U7*SI1 (C) -0. 20*17*SIN (A-2*B-2*N) • . "<6 16*:;: H (2* D) 
A ♦1.07l«2*SIN(M) -1.07*u"»*SIS|2*B + i)- l.28€58*>SXl (A-2*D) 

B -2.«7970«SIH(2*B*2*H)*6.32962*SI!MM 

■BA«C*APSIH(PHI/SgaT(PIIO-TH£TA*THETA)) 
HnCL-ARSI* (TH^TA/SOnTKBMC)) 
■GHA»ANOD(C1ST-BnA*2.0*?I,2.0*PI) 

BPTUBN 

C 

C 

JMTMT COjlSTdYrAB) 

C 

C COHPOTES A3TR0 C0K5TANT5 PCP JAK CF Gl VEN YfAR 

C »D»YS - TIHE FB0.1 12 IIR (*")01) , JAN 0, 1900 10 HB, JA H G» NYEAH 

C T ■ SAHE TH JULT»!I C^HTUBT *.S (UNITS CP 3*525 DATS) 
CPl-CAtAH <1. ODO) *U.ODO 
PT-DPI 

HCAYS-(NYEAr- 1900)* 365 ♦ (HYEAB- 1 901 ) /U 
T»(MDAYS-0.5DC)/36525.00C 

G0-DHOD<-1.5C-U*T*T*359. «7583 3D0O5999. 0u975D0*T, 360.003) 
A0-DHOO(9. 19 2D-J*T*T+296. 1O160BD0+ U77 198.8U91 Q6D0*T , 360. ODO) 
CO-DBOD (-1.1 3 3D-3*T*T*27 0. «3» 1 6*4CC + Ufi 1267. ««3 1 U2D0*T, 360.0DO) 
M0-D«OD(2.078D-3*T*T+259. 1832 7500-19 3«. 1«2C08D0*T , 360. ODC) 
00-0flOD(-1.«3eD-J*T*T*350.737«86C(N«<l526 7. 11 «2 1 7D0*T, 36*>. )O0) 
EO-DNOD (- 3. 2 11D-3*T*T* 11. 250880 DO^UB 3202. 02515 00*1, 360. 0OQ) 
EO-LBOD (99. 3 0875 3 CO* 35999. 3728 66 C 0*1, 360. OCO) 
M0-D*OO(3.1D-«*T*T*3»2.767O53D0*5i?51«.211911D0*T.36 0.ODO) 
GBST0-DBOD(3.0 3D-U*T*T»9 5.690 983 3D0»36O0O.7ft892DO*T,360.0DO) 
DG- 35999. 0U9 75O0/ 36525. OOO 

0A-U771 08. H« 11 080 0/3652 5. ODO 
CC*«81267.8mm2D0/36S25.0D0 
!»»■- 1 Q 3U. 1U2 00OD0/3652 5.000 
DD-UU5267.11U217D0/365 25.0D0 
DO=u832O?.02 515O0/3652 5.0DO 



U4 A^jty 



»ietiction of Ccescont'3 visibility ■ 

:>r-J5999. 372996D0/36525.0D0 
CW-5B519.211911D0/36 525.CD0 
*GHST* 36000. 769 92D0/ 36525. ODO 

C 

C C01PUT5 CONSTANTS OF SUN»S PCTICl PCB JAI CP GIWIN YEAii 

c 

C HDATS - TlrtE PRCI 12 HR (NCON) , JAN 0, 1900 10 HR, JAN OP NTCAR 

C T ■ SAHE IN JHLIAN CEHTURIP.S(UIIITS CP 36525 OATSJ 

C OBL ■ OELTCJUITY OF ĔCLIPTTC 

C DG, DG*ST,DEL5ID » DAILT 10TI01 (CHAHCE) II SUN 9 S UQ!ULI« 

C SUN*S 1FAN LONGITUD», SIDEMAt TIPI 

C O, S1LONC0 r SIDT!!0 * SU N ' S 1EAI ANOIAIT, SUI*S 1EAN LOMGltODE, 

C SlDER»Al TIHE, ALL AT IIR, JAI CP TEAB NIEA2 

C C1 # C2 = COPJPPICIP1TS IN PgUATICI CP CEKTEB 

09L*C3AD(DDEG(2 3,2 7, 8.26D0) -DDEG (0,0, «6. 8<*5D0> *T) 

S1LNC0=DlO?Hl.0 3D-U*T»?* 21«. 696676C0» 16000. 76892 D3«T, 360. 0*)0) 

CrLSID=DHOUR|2*»00 f 3,*»,1«2D0)/36525.0C0 

TK-DIIOUB (6,39,4 5.83600) »0-100 (DHOUR (2«l0 0, 3, «. 59 2D0) »T, 2«. 000) 

3TDT10*010D(D«,2».ODO) 

C1=DRAD(DCEGC1,j5, 10. 05700) - ODEG (0,0,0 , 052D0) »T»T- 
1 DDEG(0,0,17.2«»DO)»T) 

C2«DRAD(DDEG(0, 1 , 1 2. 3 3*D0| -DDEC (0,0, 0. 36 1D0) *T) 
C mTE(6,CO*STS) 

PCTUR* 

c 

EMTRT TIIHSET 

NAfl r LIJT/5MST/LONGH,LTSUN,NCAT,DATS f it CNG, M,SnCL, SLHA, OTSUN, 
1 STSUN 
C S1LN'". » S'JM'3 Hr.kA LOV?lT(iDE AT TIBIO, SLCMG - TRUE LONGTTUUL 
C RA ■ 5UN'J rtlClir ASCSNSTON, SINCCL « SIMSUI»! OECLINATION) 
C SLHA - 5JN»S LOCAL IIOUR AIGLE B E5T 

c L?snn # sTsu*,UTsu"i ■ LOCS!, standard, ubivep&ai Tine or sunset 

L0Nr,||«LONG»12./PT 

LTSJN-19.0 

DO 10 I»1,2 

DATS«»nAT» (LTSUH»LOMGH)/m.O 

AROHLT- t>n AD (CO »00* DA TS) 

S1LNG-DRAD (SNL:iGO*OGnST«DATS) 

5LOIiC-SHLNC»C1«SlN(AHCNLY) »C2*SIN (A1C1LT*2) 

RA=mi2 (COS (ODL) •SIM(SLO*G> ,C05 IStCNO) ) * 1 2. 0/P: 

T» (RA.LT.O.) HA-RA*2«.0 

riMDCL=SH(OBL) •SIN(SLONG) 
5nCL»A»SIN<SINDCL) 

COSHA^t-O.OHSuan-STMDCL^SIN (LAT) )/ (SC;9T ( 1 .0-SINDCL»»2) »COS (L AT) ) 
C IP COS (SLMA) >1, THEN TIMS CMINOl 3S IVA1UATED 
IP (ARS(COSHA).GT. 1.0) »8tOB« 
5LHA«ARCCS(C0SHA)*12,0/PI 
LTS'JN = StHA»RA-DELSlD*DATS-SIDT«0 
IF (LTSUN.LT.O.) LT50N-LTSUIO». 
If (LTSTI.3T.2N. 9) lTSUN»LTSD»-2«.0 

10 coitinue 

otsun«ltsoh»icsg;ii 
st5un = i1t5u1-ls7d!i 
c write(6,snst) 

RETURN 
C 

ENTTU CITIL 
C01PUT»S TISE OP MD OP CITIL THILIGHT <SUI*S 2ENITH DIST - 96 D=G) 
C THI5 P0n?IHE 105? 3E CALLEB APTE6 CALtllG SUNSET 
C S1L*G,5LONG f R*,STNDCl,3LHA AS ADCTE (PCI 5UN5IT ABG¥E) 
C LTS01,STCVL,UTVL = LOCA L, STA IDAIO # UWI V IRSAL II HE OP CIVIL THILIOHT 

CnSHA*(-0. 10«528 5-SIKDCL»S11 (LAT) )/ (SCBT ( 1.0-SINDCL**2) -COS (LAT) ) 
C IP COS(SLHA)>1, TIIEI TISR CAINCI BP ITAIUATID 

IP (ABS(COSHAT.^T.I.O) nETUHH 

LTSDN-ARC03 (COSHA) • 1 2. 0/PI ♦ BA-DELSIC »0*13-510110 

TP (LTSUH.LT.O.) LT3ni=LTSUN»2« . 

IP (LTSUH.OT. 2*4. 0) LT3UM LTSD|i- 2«. 

UTCTL-LTSUM*LCNGH 

STCVL«UTCVL-LSTDH 
^ETORN 
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The values in the centre columns represent the 
slnes for all angles lying becween the successive 
ranges shown in che oucer columns. Thus 
sin 87° 20' is 0-9989. For inverse use. the best 
angle for 2 given sme is the one lying midway 
between che adjicent ranges; if the difference 
is odd, choose the angle nearer 90°. Thus if 
sin x- 9988, x - 870 12'. 

For tabulated angles read the sine value In che 
halMine abovc; e.g., sin 87° 38' = 0-9991. 
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